function mod_in=BPSK_jt(mod_out)
for i=1:length(mod_out)
if mod_out(i)<0
mod_in(i)=0;
else
mod_in(i)=1;
end
end